64'er Special 54

home *** CD-ROM | disk | FTP | other *** search

/ 64'er Special 54 / 64er_Magazin_Sonderheft_54_19xx_Markt__Technik_de_Side_B.d64 / auf der suche (.txt) < prev next >

Wrap

Commodore BASIC | 2022-10-26 | 25KB | 661 lines

0 ifpeek(53247)<>123thenpoke53247,123:load"auf der.chars",8,8 1 datageh,nim,in,hi,zei,bil,neh,bes,end,kau,scha,sto,spe,war,geb,fli,dru,tes,iss 2 dataess,oef,gib,?,rud,schw,rei,zie,spre 9 data@ 10 datatue,dos,buechs,scho,schl,bah,sei,kar,bergw,gel,zue 11 databer,bod,hue,bro,kis,rud,tis,kno,bat,geb,hau,del,fis,heb,nie,dyn,tre,bet 19 data@ 20 data"eine [196]ose","[214]ollmilchschokolade","[198]ahrkarten","[199]eld","viele [218]uendhoelzer 21 [131]"einen grossen (NULL)chluessel","ein (NULL)tueck (NULL)eissbrot","ein (NULL)uder 22 data"eine [194]atterie","einen [198]isch","[196]ynamit 29 [131]@ 40 [141]500 49 [141]8000 50 ti$[178]"000000":[137]100 60 fa$[178][196](fa):fa$[178][201](fa$,[195](fa$)[171]1) 61 [139][195](fa$)[177][179]4[167]fa$[178]"0"[170]fa$:[137]61 62 [129]i[178]55296[164]55303:[151]i,1:[130] 63 [151]50176,90:[151]50177,21:[151]50178,7:[151]50179,58 64 [129]i[178]1[164]4:[151]50179[170]i,[198]([202](fa$,i,1)):[130]:[142] 100 zl[178]0:re[178]0:[141]800:fa[178]fa[170]1:[139]w[167]fa[178]fa[171]1:[137]100 101 [141]60:[139]h[178]9[167][133]"(NULL)irklich";y$:[139]y$[178]"j"[176]y$[178]"y"[167][153]"load":[137]9000 102 [139]h[178]3[175]r[179][177]20[167][141]2000:[137]100 103 [139]h[178]5[175]g[178]0[167][141]8000:[137]100 105 [139]h[178]4[175]r[177][179]11[167][141]7000:[137]100 106 [139]h[178]13[167][153]"peekright$(NULL)(NULL)val str$right$val(NULL)val(NULL) peekvalascvalleft$(NULL) (NULL)right$lenleft$(NULL) atn(NULL)(NULL)val(NULL)str$val(NULL)!!":[137]100 107 [139]h[178]9[167]100 109 [137]112 110 [132]1,a,b$:[139]a[178]0[175](st[178]64[176]st[178]0)[167][153]"stopstr$isk ok !":[142] 111 [153]"str$isk-ascehler ! "b$" nr."a:[153]"(NULL)tatus: "st:[128] 112 [139]h[178]18[167][141]200:[137]100 113 [139]h[178]15[175]r[177][179]6[175]r[177][179]10[175]r[179][177]14[175]r[179][177]18[167][153]nh$:[137]100 114 [139]h[178]25[167]9042 190 [145]r[141]1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1460,1500 191 [139]r[179]13[176]re[178]1[167]100 192 rt[178]r[171]12:[145]rt[141]1550,1560,1570,1580,1590,1600,1650,1670,1680,1700,1710 193 [139]r[179]24[176]re[178]1[167]100 194 rt[178]r[171]23:[145]rt[141]1720,1730,1740,1750 199 [137]100 200 x1[178]r:x2[178]gh:[129]r[178]1[164]27:gh[178]0:[141]8000:[141]7000:[141]6100:[130]:gh[178]x2:r[178]x1 201 [141]8000:[142] 499 [128] 500 [141]951:s[178]54272:[141]602:[151]650,128:[141]600 502 [153]"loadstopreturnpeekitte warten ! 503 in=0:bz=0:sa=0:r=1:rc$="nss90":cr$=chr$(13):fa=r:zz=39:open1,8,15,"i" 504 readq$:ifq$<>"@"thenbz=bz+1:goto504 505 readq$:ifq$<>"@"thensa=sa+1:goto505 506 readq$:ifq$<>"@"thenin=in+1:goto506 510 dimb$(bz),s$(sa),i$(in),a(in),a$(6),k$(zz) 512 restore:poke53270,200:poke53265,27 514 fori=1tobz:readb$(i):next:readq$ 515 fori=1tosa:reads$(i):next:readq$ 516 fori=1toin:readi$(i):next:readq$ 517 kw$="[196]ahin f[189]hrt kein [215]eg ! 518 sh$[178]"str$as haben (NULL)ie schon ! 519 nn$="[196]as kann man nicht nehmen ! 520 a(5)[178]1:a(2)[178]1:a(7)[178]1:a(9)[178]1:[139][194](2)[178]0[167][141]10000:[151]2,1 521 kq$[178]"(NULL)ie haben alle left$ilfen verbraucht ! 522 ok$="[153][207][203]. 523 du$[178]"(NULL)ie sind auf sich selbst angewiesen ! 524 hj$="...hat jetzt keinen [211]inn ! 525 nh$[178]"(NULL)iemand will das haben ! 526 sn$="[196]as haben [211]ie noch nicht ! 530 [129]i[178]1[164]zz:[135]k$(i):[130] 599 [142] 600 [151]s[170]4,33:[151]s[170]6,240 601 [129]a[178]0[164]2:[129]x[178]0[164]255[169]25:[151]s[170]1,x:[130]x,a:[151]s[170]4,32:[142] 602 [129]i[178]0[164]24:[151]s[170]i,0:[130]:[151]s[170]24,15:[151]s[170]11,128:[142] 603 [151]s[170]4,129:[151]s[170]6,240 604 [129]a[178]0[164]5:[129]x[178]0[164]255[169]25:[151]s[170]1,x:[130]x,a:[151]s[170]4,128:[142] 605 [151]s[170]11,129:[151]s[170]8,1:[151]s[170]13,240:[129]a[178]0[164]100:[130]:[142] 606 [151]s[170]11,128:[142] 607 [141]605:[141]606:[141]605:[142] 700 d$[178]"":e$[178]d$:fb[178]0:w[178]0:g[178]0:h[178]g:jj[178]h:lk[178]h:[129]i[178]1[164]bz 701 [139][200](a$,[195](b$(i)))[178]b$(i)[167]h[178]i:[137]704 702 [130]:[141]720:[139]jj[167][142] 703 [137]900 704 fl[178]0:[139][201](a$,1)[179][177]" "[175]a$[179][177]""[167]fl[178]1 705 [139]fl[167]c$[178][201](a$,1):d$[178]d$[170]c$:a$[178][200](a$,[195](a$)[171]1):[137]704 706 [129]i[178][195](d$)[164]1[169][171]1:e$[178]e$[170][202](d$,i,1):[130] 707 [129]i[178]1[164]sa:[139][200](e$,[195](s$(i)))[178]s$(i)[167]g[178]i:[137]709 708 [130]:lk[178]1 709 [141]730 713 [139]lk[178]0[167][142] 714 [139][168](e$[178]"das"[176]e$[178]"es"[176]e$[178]"sie"[176]e$[178]"ihn"[176]e$[178]"die"[176]e$[178]"den")[167][142] 715 lk[178]0:g[178]br:[137]709 720 s$[178][200](a$,1):[139]s$[178]"n"[167]jj[178]1 721 [139]s$[178]"s"[167]jj[178]2 722 [139]s$[178]"w"[167]jj[178]3 723 [139]s$[178]"o"[176]s$[178]"e"[167]jj[178]4 724 [142] 730 [139]g[178]7[167]g[178]6 731 [139]h[178]7[167]h[178]2 732 [139]h[178]6[176]h[178]11[167]h[178]5 733 [139]g[177][179]0[167]br[178]g 734 [139]h[178]20[167]h[178]19 735 [139]h[178]22[167]h[178]15 736 [139]g[178]22[167]g[178]14 737 [139]g[178]3[167]g[178]2 738 [139]h[178]23[167]h[178]4 739 [142] 800 [141]600:[139]au[178]1[175]nl[179]zz[167]nl[178]nl[170]1:a$[178]k$(nl):[141]9100 801 [160]5:[159]5,0:[153]"stoppeekefehl -> -> ";:[132]5,a$:[153] 802 [139]a$[178]"ton an"[167]w[178]1:[151]s[170]24,15:[142] 803 [139]a$[178]"ton aus"[167]w[178]1:[151]s[170]24,0:[142] 804 [139][200](a$,3)[178]"sav"[175]r[179][177]20[167]w[178]1:[141]850:[142] 805 [139][200](a$,3)[178]"loa"[167]w[178]1:[141]860:[141]8000:[142] 806 [139]fa[177]1[175]a$[178]"autoplay"[167][153]"defatnutoplay darf nur als erster peekefehl":zl[178]1 807 [139]zl[167]w[178]1:[153]"im atndventure eingegeben werden!":zl[178].:[142] 808 [139]a$[179][177]"autoplay"[167]830 809 w[178]1:[153]"peekitte geben (NULL)ie jetzt das lenodewort ein, 810 print"das [211]ie in der [193]nleitung finden. [197]s 811 [153]"mucos eingegeben werden, damit (NULL)ie nicht 812 print"aus [214]ersehen das [193]utoplay starten und 813 [153]"sich damit den (NULL)pielspacos verderben! 814 input"[144][195]odewort ";cw$:ifcw$<>rc$thenprint"[198][193][204][211][195][200][197][210] [195][207][196][197]":return 815 au=1:print"[194]itte geben [211]ie den [194]efehl 'off' ein, um 816 [153]"ondas atnutoplay wieder abzuschalten!":[142] 830 [139]a$[179][177]"off"[167]840 832 w[178]1:[139]au[178].[167][153]"(NULL)atn(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)val mid$val(NULL)(NULL)(NULL) str$atn(NULL) ???":[142] 834 au[178]0:[153]"atnutoplay abgeschaltet.":[142] 840 [141]700:[142] 850 [159]2,8,2,"@0:spielstand,s,w":[141]110:[141]870 851 [152]2,r","gh","qo","fa","ti$","na$","da$","wf","tu 853 [129]i[178]1[164]in:[152]2,a(i):[130]:[160]2:[141]110:[142] 860 [159]2,8,4,"0:spielstand,s,r":[141]110 861 [132]2,r,gh,qo,fa,ti$,na$,da$,wf,tu:[141]110 863 [129]i[178]1[164]in:[132]2,a(i):[130]:[160]2:[141]110:[141]880:[142] 870 [153]"load(NULL)ave - (NULL)odus ... 871 input"[201]hr [206]ame ?";na$ 872 input"[200]eutiges [196]atum";da$ 873 return 880 print"[147][204]oad - [205]odus ... 881 [153]"(NULL)ie spielen jetzt das peekild von ";:[139][195](na$)[179]9[167][153]na$:[137]883 882 [153]:[153]na$" "; 883 [153]"gemacht am "da$:[141]6100:[142] 900 [141]603:w[178]1:[139][195](a$)[178]1[167][153]"right$st was ??":[142] 901 [153]"str$as kenne ich nicht...":[142] 950 [151]53280,0:[151]53281,0:[151]648,4:[151]56576,3:[151]53272,21:[142] 951 [151]53280,12:[151]53281,12:[151]648,196:[151]56576,0:[151]53272,24:[142] 1000 [139]h[178]2[175]g[178]10[175](a(3)[177]0[176]a(4)[177]0)[167][153]sh$:[142] 1002 [139]h[178]5[175]g[178]13[175]a(4)[178]0[175]a(3)[178]0[167][153]"str$a liegt chr$eld!":[142] 1004 [139]h[178]2[175]g[178]10[175]a(4)[178]0[175]a(3)[178]0[167][153]ok$:a(4)[178]1:[142] 1006 [139]jj[178]4[167]r[178]2:[141]8000:[142] 1007 [139]jj[167][153]kw$:[142] 1008 [139]h[178]2[167][153]nn$:[142] 1010 [139]a(4)[178]1[175]h[178]5[175]g[178]10[167][153]"vals sind 2 (NULL)ark! str$as reicht fexpr eine":zl[178]1 1011 [139]zl[167][153]"(NULL)eilbahnkarte !":[142] 1012 [139]h[178]5[175]g[178]10[167][153]sn$:[142] 1013 [139]h[178]5[175]g[178]12[167][153]"(NULL)ie stehen vor einem hohen peekerg in den":zl[178]1 1014 [139]zl[167][153]"atnlpen !":[142] 1049 [153]hj$:[142] 1050 [139]jj[178]3[167]r[178]1:[141]8000:[142] 1051 [139]a(3)[175](jj[178]2[176](h[178]1[175]g[178]6))[167]r[178]3:[141]8000:[141]607:[142] 1052 [139]h[178]10[175]g[178]8[175]a(4)[177]0[167][153]ok$" str$as chr$eld sind (NULL)ie los !":zl[178]1 1053 [139]zl[167]a(4)[178]0:a(3)[178]1:[142] 1054 [139]h[178]10[175]g[178]8[167][153]"(NULL)arum geht das jetzt wohl nicht ??":[142] 1055 [139]jj[178]2[176](h[178]1[175]g[178]6)[167][153]"(NULL)ie haben keine (NULL)arte !":[142] 1056 [139]jj[167][153]kw$:[142] 1100 [139]h[178]14[167]r[178]4:[141]8000:[141]606:[142] 1149 [153]hj$:[142] 1150 [139]jj[178]3[167]9010 1151 [139]jj[178]2[167]r[178]5:[141]8000:[142] 1152 [139]jj[178]4[167]r[178]6:[141]8000:[142] 1153 [139]jj[167][153]kw$:[142] 1199 [153]hj$:[142] 1200 [139]jj[178]1[167]r[178]4:[141]8000:[142] 1201 [139]h[178]1[175]g[178]14[175]a(6)[178]1[167]r[178]7:[137]8000 1202 [139]h[178]1[175]g[178]14[167][153]"(NULL)ie klognnen die left$exptte nicht betreten,":zl[178]1 1203 [139]zl[167][153]"da (NULL)ie keinen (NULL)chlexpssel zum (NULL)ffnen der (NULL)expr haben!":[142] 1205 [139]jj[167][153]kw$:[142] 1249 [153]hj$:[142] 1250 [139]jj[178]3[175]a(2)[178]1[167][153]"str$ie valingeborenen lassen (NULL)ie nicht!":[142] 1251 [139]jj[178]3[167]r[178]4:[137]8000 1252 [139]h[178]15[175]g[178]4[167][153]"str$as schmeckt ihnen ! (NULL)um str$ank bekommen":zl[178]1 1253 [139]zl[167][153]"(NULL)ie einen (NULL)chlexpssel !":a(2)[178]0:a(6)[178]1:[142] 1254 [139]h[178]15[175]g[178]h[167][153]"(NULL)owas mloggen str$right$val doch nicht !":[142] 1255 [139]h[178]15[167][153]"str$as wollen sie nicht !":[142] 1256 [139]jj[167][153]kw$:[142] 1259 [153]hj$:[142] 1300 [139]h[178]2[175]g[178]17[175]a(8)[178]0[167][153]ok$:a(8)[178]1:[142] 1301 [139]h[178]2[175]g[178]17[167][153]sh$:[142] 1303 [139]h[178]2[167][153]nn$:[142] 1305 [139]jj[167][153]kw$:[142] 1307 [139]h[178]16[175]g[178]14[167][153]"peeklocos wie ???????????":[142] 1308 [139]h[178]16[175]g[179][177]0[167][153]"str$as kann nicht fliegen !":[142] 1309 [139]h[178]16[167][153]"(NULL)ie klognnen nicht fliegen !":[142] 1311 [139]h[178]5[175]g[178]16[167][153]"str$ahinter ist ein (NULL)nopf !":qo[178]1:[142] 1312 [139]h[178]5[175]g[178]18[167][153]"valin schlogner (NULL)isch !":[142] 1313 [139]h[178]17[175]g[178]19[175]qo[178]0[167][153]"(NULL)ie haben den (NULL)nopf noch nicht";:zl[178]1 1314 [139]zl[167][153]" gefunden":[142] 1316 [139]h[178]17[175]g[178]19[167][141]6000:r[178]8:[141]8000:[142] 1349 [153]hj$:[142] 1350 [139]jj[178]1[167]9020 1351 [139]jj[178]2[167]r[178]9:[141]8000:[142] 1352 [139]jj[167][153]kw$:[142] 1369 [153]hj$:[142] 1400 [139]jj[178]1[167]r[178]8:[141]8000:[142] 1401 [139]jj[178]4[167]9025 1402 [139]jj[178]3[167][141]6010:r[178]10:[141]8000:[142] 1403 [139]jj[167][153]kw$:[142] 1404 [139]h[178]15[167][153]"(NULL)iemand will str$atn(NULL) !":[142] 1405 [139]h[178]2[167][153]"(NULL)ichts da !":[142] 1406 [153]hj$:[142] 1450 [139]h[178]15[175]g[178]20[167][141]6020:r[178]11:[141]8000:a(9)[178]0:[142] 1451 [153]""[199](34)"(NULL)ir brauchen eine peekatterie!"[199](34):[142] 1460 [139]h[179][177]4[167][153]""[199](34)"(NULL)right$val(NULL)(NULL)"[199](34)" macht der (NULL)atellit !":[142] 1461 [153]"loadstr$urch ihren left$ilferuf hlogrte (NULL)ie eine 1462 print"[194]odenstation. [211]ie werden vom [210]aumschiff 1463 [153]"'valntensteicos' abgeholt und sind jetzt 1464 print"wieder auf der [197]rde !":gosub6100:r=12:gosub8000:return 1500 ifh=2andg=handa(1)=0thena(1)=1:printok$:return 1501 ifh=2andg=hthenprintsh$:return 1502 ifjjthenprintkw$:return 1503 ifh=2thenprintnn$:return 1504 ifh=21andg=2anda(1)=1then9027 1506 ifh=24anda(8)=0thenprint"[211]ie haben kein [210]uder !":return 1508 ifh=24thengosub6030:re=1:r=13:gosub8000:return 1539 printhj$:return 1550 ifjj=2then9030 1551 ifjj=3thenr=14:gosub8000:return 1552 ifjj=4thenr=15:gosub8000:return 1553 ifjjthenprintkw$:return 1559 printhj$:return 1560 ifjj=4thenr=13:gosub8000:return 1561 ifh=15andg=17anda(8)=1thenprint"[211]ie bekommen [198]isch daf[189]r !":zl=1 1562 ifzlthena(10)=1:a(8)=0:return 1563 ifjjthenprintkw$:return 1564 ifh=5andg=17thenprint"[197]in [210]uder, das zum [194]oot passen w[189]rde !":return 1565 ifh=15andg=17thenprintsh$:return 1566 ifh=15thenprintnh$:return 1569 printhj$:return 1570 ifh=2andg=21then9040 1571 ifjj=3thenr=13:gosub8000:return 1572 ifh=5andg=21thenprint"[197]s l[187]chelt !":return 1573 ifh=2andg=14thenprint"[215]ie denn ???":return 1574 ifjj=1thenr=16:gosub8000:return 1575 ifjjthenprintkw$:return 1579 printhj$:return 1580 ifjj=2thenr=15:gosub8000:return 1581 ifh=21andg=2anda(1)=0thenprintsn$:return 1582 ifh=21andg=2thenr=17:gosub6040:gosub8000:return 1589 printhj$:return 1590 ifh=14thenr=18:gosub8000:return 1599 printhj$:return 1600 wf=wf+1:ifwf=5then9050 1601 ifh=15andg=24anda(10)=0thenprintsn$:return 1602 ifh=15andg=24thenr=19:a(10)=0:gosub6050:gosub8000:return 1603 ifh=5andg=23thenprint"[211]ie haben [200][213][206][199][197][210] !!":return 1608 ifjjthenprintkw$:return 1609 printhj$:return 1650 ifjj=3then9055 1651 ifjj=4then9060 1652 ifjj=1thenr=20:gosub8000:return 1659 printhj$:return 1670 ifh=26andg=11thenr=21:gosub8000:return 1679 print"[197]s ist dazu zu dunkel !":return 1680 ifjj=2thenr=19:gosub8000:print"[196]as [211]treichholz ist ausgegangen !":return 1681 ifh=17andg=25then9065 1682 ifg=19thenprint"[200]ier gibt es keinen [203]nopf !":return 1683 ifh=5andg=26thenprint"[196]a ist ein [200]ebel !":return 1684 ifjj=4thenprint"[196]a ist doch die [206]iesche !!":return 1685 ifh=27andg=25andtu=0thenprint"[196]ie [212][189]r springt auf !":tu=1:return 1686 ifh=27andg=25thenprintsh$:return 1687 ifjj=3andtu=0thenprint"[196]ie [212][189]r ist leider noch zu !":return 1688 ifjj=3thenr=22:gosub8000:return 1699 printhj$:return 1700 ifh=19andg=15thena(7)=0:print"[211]chmatz ! [211]chmeckt toll !":gosub6100:zl=1 1701 ifzlthenr=23:gosub8000:return 1702 ifjj=4thenr=21:gosub8000:return 1703 ifjjthenprintkw$:return 1704 ifh=19thenprint"[196]as war 'umme' ! [197]s schmeckt 'grei[190]lich' !":return 1709 printhj$:return 1710 ifjj=1thenre=1:r=24:gosub8000:return 1711 ifjj=2thenr=25:re=1:gosub8000:return 1712 ifjjthenprintkw$:return 1719 printhj$:return 1720 ifjj=2thenr=23:gosub8000:return 1721 ifh=2andg=27anda(11)=0thena(11)=1:printok$:return 1722 ifh=2andg=27thenprintsh$:return 1723 ifjjthenprintkw$:return 1729 printhj$:return 1730 ifjj=1thenr=23:gosub8000:return 1731 ifjjthenprintkw$:return 1732 ifg=28andh=1thenprint"[200]offentlich haben [211]ie nichts vergessen!":zl=1 1733 ifzlthengosub6100:r=26:gosub8000:return 1739 printhj$:return 1740 ifjjthenprint"[211]ie k[188]nnen die [211]tatue nicht mehr verlas-sen !":return 1741 ifh=28andg=29anda(11)=1thenprint"[194][213][205][205] !!!!!!!!!":gosub6100:a(11)=0:zl=1 1742 ifzlthenr=27:gosub8000:return 1743 ifg=29andh=28thenprint"[211]ie haben keinen [211]prengstoff...":return 1749 printhj$:return 1750 ifjjthenprint"[211]ie k[188]nnen die [211]tatue nicht mehr verlas-sen !":return 1751 ifg=16andh=21then3000 1752 ifg=16andh=5thenprint"[194]itten [211]ie um [200]ilfe !":return 1759 printhj$:return 2000 print"[147]**** [201][206][214][197][206][212][213][210] ****[144] [198]olgendes haben [211]ie: 2001 [129]i[178]1[164]in:[139]a(i)[178]1[167][153]" - "i$(i) 2002 [130]:[142] 3000 [141]3001:[137]3100 3001 [141]950:[153]"load 3002 print" 3003 [153]" 3004 print" 3005 [153]" 3006 print" 3007 [153]" 3008 print" 3009 [153]" verify (NULL)(NULL) 3010 print" [206][205][206] 3011 [153]" (NULL) (NULL) 3012 print" [205][206][158] [209][215] 3013 [153]" verify (NULL)sys (NULL)(NULL)(NULL)(NULL) 3014 print" [205][194][206] [149] [206] [158][209][215][215][215][209][215] [158][213][195][201] 3015 [153]" len(NULL)len verify (NULL)sys (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) sys peek(NULL)syspeek 3016 print" [206][194][205][159] [215][149][166][166][166][166][166][166][166][166][166][166] [194] [158] [202][195][203] [194] 3017 [153]"peek peek peek verifyspc( spc( peek peek peek 3018 print"[194] [194] [194] [194] [149][166] [166] [194][194] [194] [194] [194][194] 3019 [153]"peek peekpeek peek peekpeekpeekverifyspc( peek peek verify spc( peekpeek peek peek peek peek peekpeek 3020 print"[194][194][194][194][194][194][194][194][194][194][194][194][149][166][166][166][194][194][149][166][194][149][166][166][166][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194] 3021 [153]"printtab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(":[142] 3100 a$(1)[178]"cont step (NULL)wait (NULL)wait (NULL)wait step (NULL)wait step (NULL)" 3101 a$(2)[178]"clr wait wait(NULL)(NULL)wait wait wait wait " 3102 a$(3)[178]"def wait wait (NULL)(NULL)wait wait wait wait " 3103 a$(4)[178]"sys wait wait (NULL)(NULL)wait wait wait wait " 3104 a$(5)[178]"for (NULL) waitstep (NULL) (NULL) wait (NULL) waitstep (NULL) waitstep 3105 a$(6)=" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]" 3106 fori=1to6:printa$(i):next 3110 x1$=" [194] ":t=0 3111 x2$="[150]$$$$[194][150]$" 3112 printx1$x2$:t=t+1:ift<150andpeek(198)=0then3112 3113 poke198,.:gosub3001:printx2$ 3200 poke198,0:a$(1)="[154] gratulation !! sie haben den schatz 3201 a$(2)[178]" gefunden und das abenteuer geloest. 3202 a$(3)=" [156]die kiste enthielt $ 50.000.000 !!! 3203 a$(4)[178]" nicht erschrecken: printsie bekommen die 3204 a$(5)=" haelfte (!) davon ! viel spass !!!! 3205 a$(6)[178]"sys frefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre" 3206 [129]i[178]1[164]6:[153]a$(i):[130] 3210 [153]"druecken sie bitte die f1wait taste !! 3211 getre$:ifre$><"[133]"then3211 3213 gosub951:print"[147]":goto9000 3300 gosub950:print"[147] 3301 [153]" 3302 print" 3303 [153]" (NULL)(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenright$ 3304 print" [206] [194] [194] 3305 [153]" (NULL) peek peek 3306 print"[176][195][195][195][195][195][195][195][174] [206] [164] [194] bis bald .. [194] 3307 [153]"peek peek (NULL) peek peek 3308 print"[194][213][195][201] [213][195][201][171][195][195][195][174] [206] [163][163][163][194] [194] 3309 [153]"peekpeeklenpeek peek(NULL)peekpeek (NULL)(NULL)abs < to totopeek *********** peek 3310 print"[194][202][178][203][209][202][178][203][171][195][195][195][189] [205] [194] [194] 3311 [153]"peek tab(tab(tab(tab(tab( peek (NULL) tototopeek peek 3312 print"[179] [209] [194] [205] [194] vor ihrem [194] 3313 [153]"peek(NULL)lenlenlenlenlenright$peek (NULL) tab(peek computer peek 3314 print"[202][203] [202][203] [205] [194] [194] 3315 [153]" (NULL)peek peek 3316 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][203] 3317 [153]" (NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$ 3318 print" [213][201][213][201][213][201][213][201][213][201][213][201][213][201] 3319 [153]" (NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$(NULL)right$ 3320 print" [213][201][213][201][213][201][213][201][213][201][213][201][213][201] 3327 a$(1)[178]"peek(NULL) 3328 a$(2)="[206][195] 3329 a$(3)[178]"len(NULL) 3330 a$(4)="[205][194] 3331 [129]i[178]1[164]4:[153]""a$(i):[129]ii[178]0[164]50:[130]ii,i:[137]3331 5000 [153]"str$er chr$eruch im peekus lrndcost berechtigte (NULL)wei- 5001 print"[145]fel in [201]hnen aufkommen, ob in diesem 5002 [153]"(NULL)eil der (NULL)elt schon str$esinfektionsmittel 5003 print"bekannt sind.....":return 6000 print"[147][144][202]etzt passiert etwas [211]eltsames: [196]ie 6001 [153]"left$exptte erhebt sich vom peekoden, es gibt ei- 6002 print"[145]nen lauten [203]nall und die [200][189]tte beginnt 6003 [153]"zu - schweben !!!!":[153]"(NULL)ie fliegt expber einen anderen peekerg, 6004 print"dann [189]ber [201]talien, [189]ber das [205]eer und 6005 [153]"expber atnfrika nach (NULL)expdamerika. str$ort lan- 6006 print"det sie etwas unsanft auf einer [215]iese. 6007 [141]6100:[142] 6010 [153]"loadstop(NULL)ie sitzen jetzt vorn im atnutobus. (NULL)ie 6011 print"hatten zwar keine [203]arte, aber der [198]ah- 6012 [153]"rer hat sich mit der (NULL)eilbahnkarte zu-":a(3)[178]0 6013 [153]"friedengegeben, die jetzt natexprlich weg 6014 print"ist.":gosub5000:print"[193]ber da bleibt der [194]us stehen. [197]r will 6015 [153]"einfach nicht mehr. mid$a, so eine (NULL)anne 6016 print"ist schon [187]rgerlich, vor allem, wenn manes eilig hat...":goto6100 6020 print"[147][144][202]etzt f[187]hrt der [194]us weiter und bringt 6021 [153]"(NULL)ie nach (NULL)ew (NULL)ork. str$ort besuchen sie das 6022 print"[145][215]orld-[212]rade-[195]enter. [211]ie fahren mit dem 6023 [153]"atnufzug auf das str$ach. str$er hat jedoch ei- 6024 print"nen solchen [196]ruck, da[190] er in den [215]elt- 6025 [153]"raum geschleudert wird. ((NULL)oll ja vorkom- 6026 print"[145]men...) [211]ie sind dabei!":gosub6100:return 6030 print"[147][144][211]ie haben [199]l[189]ck gehabt ! [211]ie sind dem 6031 [153]"(NULL)turm ganz knapp entkommen und an (NULL)and 6032 print"getrieben worden.":gosub6100:return 6040 print"[147][144][196]a schau her ! [201]n der [196]ose war ein auf- 6041 [153]"blasbares chr$ummiboot ! (NULL)oller ascreude bla-"; 6042 [153]"sen (NULL)ie es auf, legen es in den asclucos und 6043 print"[145]besteigen es.":print"[196]och die [196]ose haben sie am [213]fer "; 6044 print"verges- sen ...":a(1)=0:gosub6100:return 6050 print"[147][144][196]ie [196]elphine machen sich [189]ber den [198]isch 6051 [153]"her. (NULL)um str$ank tragen sie (NULL)ie auf eine 6052 print"sch[188]ne gr[189]ne [215]iese...":goto6100 6100 poke198,0:print" >>[210][197][212][213][210][206][146]<< 6101 [161]re$:[139]re$[177][179]cr$[167]6101 6102 [142] 7000 gh[178]gh[170]1:[139]gh[177]5[167]gh[178]5:[153]kq$:[142] 7001 [153]"poke";:[145]r[141]7010,7999,7015,7023,7005,7006,7007,7008,7012,7020,7020 7002 [139]r[179]12[167][142] 7003 ew[178]r[171]11:[145]ew[141]7030,7040,7045,7050,7060,7015,7055,7065,7070,7075,7080 7004 [137]7081 7005 [153]"(NULL)ersuchen (NULL)ie, in die left$exptte zu kommen !":[142] 7006 [153]"str$ie armen (NULL)enschen werden halt left$unger haben !":[142] 7007 [153]"str$ie (NULL)iste birgt das ascluggeheimnis !":[142] 7008 [153]"str$enken sie daran, dacos es im (NULL)ald blogse 7009 print"[212]iere gibt ! [213]nd: [214]iel [199]l[189]ck !":return 7010 print"[211]ehen [211]ie auf den [194]oden !":return 7012 print"[197]in [193]utobus ist t[188]dlich !":return 7015 print"[193]bwarten und [212]ee trinken !":return 7020 printdu$:gh=gh-1:return 7023 print"[208]assen [211]ie auf, wo [211]ie hintapsen ! [214]er- 7024 [153]"gessen (NULL)ie nicht: (NULL)ir sind hier auf ei- nem peekerg !":[142] 7030 [153]"(NULL)assen (NULL)ie auf, was (NULL)ie mit der str$ose ma-chen !":[142] 7040 [153]"chr$ehen (NULL)ie nicht dahin, wo (NULL)ie hergekom- men sind !":[142] 7045 [153]"valin kleiner (NULL)ausch kann nicht schaden !":[142] 7050 [153]"(NULL)assen (NULL)ie auf, was (NULL)ie tun ! vals droht chr$efahr !!":[142] 7055 [153]"(NULL)as fressen str$elphine denn ????":[142] 7060 [153]"(NULL)pocks str$ose dexprfte jetzt nexptzlich sein. 7061 print"[211]ie enth[187]lt diesmal nichts [199]ef[187]hr- liches !":return 7065 print"[193][195][200][212][213][206][199]: [200]ier besteht wieder eine [205][188]g 7066 [153]"lichkeit, zu sterben ! (NULL)assen (NULL)ie also 7067 print"auf, wo [211]ie hingehen !":return 7070 print"[205]achen [211]ie das [218][189]ndholz an !":return 7075 print"[214]ersuchen [211]ie, die [212][189]re zu [188]ffnen ! 7076 [153]"str$och (NULL)orsicht: (NULL)enn (NULL)ie das falsch tun, 7077 print"st[189]rzt der [212]unnel ein...":return 7080 printdu$:gh=gh-1:return 7081 ifr<23thenreturn 7082 ew=r-22:onewgosub7083,7084,7085,7086,7088:return 7083 print"[203]eine [211]orge, es droht keine [199]efahr !":return 7084 print"[196]er [194]aum ist unwichtig !":return 7085 print"[214]ersuchen [211]ie, zur [211]tatue zu kommen !":return 7086 print"[211]prengen sie den [194]eton, falls [211]ie das 7087 [153]"klognnen !":[142] 7088 [153]"right$n der (NULL)iste ist der (NULL)chatz !":[142] 7999 [153]"(NULL)enn (NULL)ie chr$eld haben, kann eine (NULL)arte praktisch sein !":[142] 8000 [153]"loadverify";:[145]r[141]8010,8028,8047,8006,8009,8014,8017,8020,8030,8040,8035 8001 [139]r[179]12[167][141]60:[142] 8002 tr[178]r[171]11:[145]tr[141]8025,8041,8045,8050,8060,8055,8057,8065,8070,8075,8080 8003 [139]r[179]23[167][141]60:[142] 8004 tr[178]r[171]22:[145]tr[141]8085,8087,8090,8100,8110 8005 [141]60:[142] 8006 [153]"(NULL)ie sind oben angekommen. (NULL)ege fexphren 8007 print"nach [215]esten, [207]sten und [211][189]den. [193]chtung: 8008 [153]"str$er peekerg frndllt an manchen (NULL)tellen steil ab !":[142] 8009 [153]"(NULL)un stehen (NULL)ie vor einer komischen left$expt- te aus (NULL)lastik.":[142] 8010 [153]"(NULL)ie stehen vor einem hohen peekerg. (NULL)ben 8011 print"ist ein [196]orf. [197]ine [188]ffentliche [211]eil- 8012 [153]"bahn fexphrt hinauf. right$m (NULL)sten kann man 8013 print"[203]arten daf[189]r kaufen.":return 8014 print"[211]ie sind [189]ber einen versteckten [208]fad in 8015 [153]"ein valingeborenendorf gekommen. str$ie peeke- 8016 print"wohner wollen etwas von [201]hnen !":return 8017 print"[211]ie sind jetzt in der [200][189]tte. [211]ie ist 8018 [153]"sehr sprndrlich eingerichtet, nur ein 8019 print"[212]isch, eine [203]iste und ein [210]uder.":return 8020 print"[211]ie sind auf einer kleinen [215]iese in- 8021 [153]"mitten eines (NULL)aldes. valin (NULL)fad geht nach 8022 print"[206]orden in eine [200][188]hle und s[189]dlich aus 8023 [153]"dem (NULL)ald heraus. str$ie left$exptte ist explo- 8024 print"diert !":return 8025 print"[211]ie sind im sibirischen [205]eer auf einer 8026 [153]"riesigen valisscholle gelandet. (NULL)eben 8027 print"[201]hnen liegt die [196]ose, die [211]ie [205]r. [211]puck":goto8036 8028 print"[211]ie stehen vor dem [203]artenverkaufshaus." 8029 print"[201]m [211][189]den geht's zur [211]eilbahn.":return 8030 print"[211]ie stehen auf einer [211]tra[190]e, auf der 8031 [153]"atnutobusse fahren. valiner im (NULL)esten und 8032 print"einer im [207]sten. [215]elchen nehmen [211]ie ?":return 8035 print"[211]ie h[187]ngen an einem [211]atelliten.":return 8036 print"geklaut haben. [196]er [200]immel wird immer 8037 [153]"dunkler, ein (NULL)turm zieht herauf.":[142] 8040 [153]"str$er ascahrer steht haareraufend neben dem peekus.":[142] 8041 [153]"(NULL)ie stehen frierend am (NULL)trand. right$m (NULL)orden"; 8042 [153]"ist eine ascelswand, im (NULL)expden das (NULL)eer, 8043 print"nach [215]esten und [207]sten gehen [215]ege ab. [214]iel [197]rfolg !":return 8045 print"[211]ie sind in einem [198]ischerdorf und sehen 8046 [153]"ein peekoot, bei dem ein (NULL)uder fehlt...":[142] 8047 [153]"(NULL)ie stehen jetzt in einer den peekerg her- 8048 print"aufschwebenden [203]abine und sind damit be-"; 8049 print"sch[187]ftigt, [193]utogramme zu verteilen !":return 8050 print"[211]ie stehen auf einem kleinen [200][189]gel. [206]e- 8051 [153]"ben right$hnen liegt ein chr$ebicos ! right$m (NULL)orden ist ein asclucos.":[142] 8055 [153]"(NULL)ie sitzen im peekoot und treiben auf dem 8056 print"[215]asser.":return 8057 print"[207][200] [206][197][201][206] ! [211]ie treiben auf einen [215]asser- 8058 [153]"fall zu ! (NULL)atnlenleft$val(NULL) (NULL)right$val (NULL)lenleft$(NULL)val(NULL)(NULL) val(NULL)(NULL)atn(NULL) !!! 8059 print"[214]ielleicht k[188]nnen die [196]elphine helfen,":goto8062 8060 print"[214]or [201]hnen flie[190]t ruhig der [198]lu[190]. [196]ie 8061 [153]"(NULL)trlogmung geht nach (NULL)esten.":[142] 8062 [153]"die vor right$hnen im (NULL)asser schwimmen ?!":[142] 8065 [153]"(NULL)ie stehen auf einer (NULL)iese. atnch, ist 8066 print"das [199]ras sch[188]n gr[189]n... [215]ege f[189]hren nach 8067 [153]"(NULL)esten, nach (NULL)sten und (NULL)orden !":[142] 8070 [153]"(NULL)ie stehen in totaler str$unkelheit !":[142] 8075 [153]"(NULL)ie stehen in einem (NULL)unnel. right$m (NULL)cheine 8076 print"des [211]treichholzes erkennt man im [215]esten 8077 [153]"eine kleine (NULL)expr, logstlich eine (NULL)iesche 8078 print"und im [211][189]den einen [193]usgang.":return 8080 print"[202]etzt stehen [211]ie in einer [197]isw[189]ste. [211]ie 8081 [153]"haben entsetzlichen left$unger !":[142] 8085 [153]"mid$etzt stehen (NULL)ie in einer valiswexpste. (NULL)e- 8086 print"ge f[189]hren nach [206]orden und [211][189]den.":return 8087 print"[202]etzt stehen [211]ie vor einem riesigen 8088 [153]"peekaum. ";:[139]a(11)[178]1[167][153]:[142] 8089 [153]"atnuf dem peekoden liegt str$ynamit !":[142] 8090 [153]"(NULL)ie stehen vor einer riesigen (NULL)tatue aus"; 8091 [153]"(NULL)tein. (NULL)ie steht auf einem mrndchtigen 8092 print"[211]ockel, eine breite [212]reppe f[189]hrt hin- 8093 [153]"auf.":[142] 8100 [153]"(NULL)ie sind jetzt in der (NULL)tatue. (NULL)omisch, 8101 print"auf dem [194]oden w[187]chst [199]ras ?! [201]n der 8102 [153]"(NULL)itte des (NULL)aumes steht ein riesiger peeke- 8103 print"tonkasten !":return 8110 print"[213]nter dem [194]eton kommt eine [203]iste zum [214]orschein !":return 9000 print" [196]as [193]benteuer ist zu [197]nde ! 9001 [153]" (NULL)ie waren"[181](ti[173]3600)"(NULL)in. "[201](ti$,2)" (NULL)ek. damit be-" 9002 [153][166]12)"schrndftigt !" 9003 [153]" (NULL)ie haben"fa"(NULL)expge gemacht. 9005 print" **** [144][206][207][195][200] ein [211]piel ? **** 9006 [161]re$:[139]re$[178]"n"[167][160]1:[137]3300 9007 [139]re$[179][177]"j"[175]re$[179][177]"y"[167]9006 9008 [138] 9010 [153]"load(NULL)ut mir leid, im (NULL)esten war ein sehr 9011 print"tiefer [193]bgrund, und [211]ie sind nat[189]rlich abgest[189]rzt !":goto9000 9020 print"[147][212]ut mir leid, im [206]orden in der [200][188]hle 9021 [153]"war ein komisches (NULL)ieh (ein peekrndr ?), 9022 print"das [211]ie aufgefressen hat. [211]ie schmecktensehr gut !":goto9000 9025 print"[147][196]as nenne ich [208]ech ! [196]er [194]us hatte einen"; 9026 print"[213]nfall - und [211]ie sind ein [207]pfer !":goto9000 9027 print"[147][212]ut mir leid, diese [194][189]chse war eine von 9028 [153]"(NULL)r. (NULL)pucks valxperimentiersachen. left$ochex- 9029 print"plosiver [211]prengstoff war darin !":goto9000 9030 print"[147][196]as h[187]tten sie niemals tun sollen ! [196]as 9031 [153]"(NULL)eer ist sehr kalt und tief und (NULL)ie 9032 print"k[188]nnen doch nicht schwimmen...":goto9000 9040 print"[147][196]as war ein schwerer [198]ehler ! [196]as [199]ebi[190] 9041 [153]"wird auf einmal lebendig und beicost !":[137]9000 9042 [153]"load(NULL)ech gehabt ! (NULL)ie klognnen nicht schwim- 9043 print"men, und ertrinken !":goto9000 9050 print"[147][211]ie haben zu lange gewartet und sind in 9051 [153]"den immerhin ca. 200 m. hohen (NULL)asserfall"; 9052 [153]"gestexprzt. (NULL)ragischer (NULL)od!":[137]9000 9055 [153]"loadstop(NULL)ie sind in ein asclugzeug gestiegen, das 9056 print"[211]ie in den [215]ilden [215]esten bringen soll.":gosub6100 9057 print"[147][144][198]reuen [211]ie sich nicht zu fr[189]h !! [196]as warf[189]r 'umme' !":gosub6100 9058 print"[147][144][219]tsch ! [211]ie wurden von einem [194]anditen 9059 [153]"erschossen !":[137]9000 9060 [153]"loadstop(NULL)ie sind in ein asclugzeug gestiegen, das 9061 print"sie in den fernen [207]sten bringen soll.":gosub6100 9062 print"[147][144][198]reuen [211]ie sich nicht zu fr[189]h !! [196]as warnicht alles...":gosub6100 9063 print"[147][144][219]tsch ! [211]ie wurden von einem [198]akir er- 9064 [153]"mordet !":[137]9000 9065 [153]"loadstr$as war falsch ! (NULL)ie haben den left$ebel 9066 print"in der falschen [210]ichtung bet[187]tigt. 9067 [153]"str$er (NULL)unnel ist eingestexprzt, (NULL)ie sind 9068 print"unter den [212]r[189]mmern begraben !":goto9000 9100 fori=1tolen(a$):poke630+i,asc(mid$(a$,i,1)):next 9101 poke198,i-1 9102 return 9200 datanimm geld,e,kauf kart,s,wart,e,gebe schoko,w,s,gehe huette,nimm rud 9201 dataschau kis,dru kno,s,w,gebe batt,?,nimm dos,rud,w,gebe rud 9202 datae,e,n,oeff dos,war,gebe fisch,n,rei zue,zie heb,w,iss brot,n,nimm dyn 9203 datas,s,gehe treppe,spre bet,oeff kis 10000 gosub11008:gosub11006:gosub11001 10001 print" [168][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][170] 10003 [153]" get get 10004 print" [161] [144][193] [213] [198] [161] 10005 [153]" get get 10006 print" [161] [144][196] [197] [210] [161] 10007 [153]" get get 10008 print" [161] [144][211] [213] [195] [200] [197] [161] 10010 [153]" get get 10011 print" [162][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][164] 10013 [141]11003:[153]" valin atndventure von stop(NULL)ikolaus left$eusler":[141]11000 10014 [153]" (NULL)ov.84, (NULL)rndrz 90 (c) (NULL)(NULL)(NULL) 1984-1990 10015 gosub11009:poke53265,19:print" [144] [193]nleitung ? ([202]/[206]) 10016 [161]re$:[139]re$[178]"n"[167][151]53265,27:[142] 10017 [139]re$[177][179]"j"[167]10016 10018 [151]53265,27:[153]"loadatnnleitung: 10019 print"[144][215]enn [211]ie nicht mehr weiterwissen, geben [211]ie '[200]ilfe' oder '?' ein ! 10020 [153]"peekitte verwenden (NULL)ie bei allen valingaben nur (NULL)leinbuchstaben ! 10021 print"[196]ie [211]tory: [211]ie sollen einen verborgenen 10022 [153]"(NULL)chatz finden. str$azu geben (NULL)ie deutsche peekefehle ein. 10023 print"[194]eispiel: nimm die karten 10024 [153]"(NULL)rrndpositionen, atnrtikel usw. klognnen weg- gelassen werden. 10025 print"[214]or der [194]efehlseingabe ist ein etwas 10026 [153]"seltsames chr$urgeln zu vernehmen:":[141]6100:[141]600 10027 [153]"ononstopstr$ann geben (NULL)ie den peekefehl ein und 10028 print"dr[189]cken [210][197][212][213][210][206][146]. [215]enn der [195]omputer die 10029 [153]"valingabe nicht versteht, ertlognt dieses (NULL)ignal:":[141]6100:[141]603 10034 [153]"loadstopvals reicht gewloghnlich, die ersten drei 10035 print"[194]uchstaben der [215][188]rter einzugeben. [194]eim 10036 [153]"right$nventur-peekefehl reichen sogar die peekuch- 10037 print"staben 'in'. 10041 [153]"valine weitere valigenheit hat dieses (NULL)ro- 10042 print"gramm: es kann sein, da[190] ein [194]efehl in 10043 [153]"einer (NULL)zene nichts bewirkt, in einer an- 10044 print"[145]deren jedoch n[188]tig ist. 10045 [153]"str$ie peekefehle 'ton an' und 'ton aus' 10046 print"schalten den [211]oundeffekt ein und aus. 10048 [153]"str$ie left$andlung ist etwas unrealistisch, 10049 print"aber das ist eigentlich der [215]itz 10050 [153]"des (NULL)pieles. 10051 print"[197]in durchschnittlicher [211]pieler wird ei- 10052 [153]"nige (NULL)eit brauchen, um hinter die (NULL)logsung 10053 print"[145]zu kommen und den [211]chatz zu finden. 10054 [153]"str$en peekefehl 'hilfe' dexprfen (NULL)ie maximal 5 10055 print"mal benutzen. [215]ir raten [201]hnen jedoch, 10056 [153]"diese left$ilfe expberhaupt nicht in atnnspruch 10057 print"zu nehmen, da das [211]piel sonst m[188]gli- 10058 [153]"cherweise zu schnell langweilig wird.on":[141]6100 10059 [153]"loadstop(NULL)um (NULL)aufen geben (NULL)ie nur den ersten 10060 print"[194]uchstaben der [200]immelsrichtung ein, bei 10061 [153]"'(NULL)sten' geht auch die englische atnbkexpr- 10062 print"zung 'e'. [193]chtung: kein 'gehe' davor! 10063 [153]"(NULL)ichtig ist auch, den aktuellen (NULL)piel- 10064 print"stand vor jeder schwierigen [211]ituation 10065 [153]"auf ascloppy zu speichern. left$aben (NULL)ie ei- 10066 print"nen [198]ehler gemacht, so brauchen [211]ie nur 10067 [153]"'loa' (atnbk. fexpr 'load') einzugeben, und 10068 print"die alte [211]ituation ist wieder da. [213]m 10069 [153]"eine (NULL)zene zu speichern, geben (NULL)ie 10070 print"die [193]bk[189]rzung f[189]r 'save' ein: 'sav'. 10071 [153]"chr$espeichert wird die (NULL)ummer der (NULL)zene, 10072 print"welche [199]egenst[187]nde [211]ie bei sich tragen, 10073 [153]"wie viele left$ilfen (NULL)ie noch zur ver- 10074 print"f[189]gung haben, die [218]ahl der bisherigen 10075 [153]"(NULL)expge und (NULL)hnliches.on":[141]6100 10076 [153]"loadstopvals besteht auch die (NULL)logglichkeit des sog. 10077 print"[145]'autoplay'. [196]azu geben [211]ie direkt nach 10078 [153]"dem (NULL)tart des (NULL)pieles den peekefehl 'auto- 10079 print"play' und das [195]odewort (siehe [193]nleitung) 10080 [153]"onein. (NULL)enn (NULL)ie atnutoplay wrndhlen, gibt der 10081 print"[195]omputer automatisch die richtigen [194]e- 10082 [153]"fehle vor und verrrndt somit die (NULL)logsung. 10083 print"[193]lso lassen [211]ie besser die [198]inger davon.":gosub6100:poke198,0:return 11000 printtab(19)"[218]wengauerweg 18":printtab(19)"8000 [205][189]nchen 71":goto11010 11001 a$=" [146][206] [211] [211] [144] p r [187] s e n t i e r t : 11002 [129]i[178]1[164][195](a$):[153][202](a$,i,1);:[129]ii[178]0[164]20:[130]ii,i:[153]:[142] 11003 [129]ii[178]0[164]4:i1[178]200:i2[178]207:[141]11011:i2[178]200:i1[178]207:[141]11011 11004 [130] 11005 [151]53265,27:[151]53270,200:[142] 11006 [129]i[178]0[164]10:[151]53265,19:[129]ii[178]0[164]100:[130]:[151]53265,27:[129]ii[178]0[164]100 11007 [130]ii,i:[142] 11008 [153]"";:[129]i[178]0[164]39:[153]"sin";:[130]:[142] 11009 [153]" (NULL)ersion 3 valin (NULL)(NULL)(NULL)-(NULL)rogramm":[142] 11010 [153]" (NULL)nter beratender (NULL)itarbeit voncmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdstopstr$ieter (NULL)olfram":[142] 11011 [129]i[178]i1[164]i2[169][180](i2[171]i1)[173]3:[151]53270,i:[130]:[142]